/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_08 / resources / clocklib0

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 41 f4 20 3e 20 | 24 2e 52 65 73 6f 75 72 |...A. > |$.Resour|
|00000010| 63 65 73 2e 43 6c 6f 63 | 6b 4c 69 62 20 3a 20 4c |ces.Cloc|kLib : L|
|00000020| 69 62 72 61 72 79 20 63 | 6c 6f 63 6b 20 a9 20 52 |ibrary c|lock . R|
|00000030| 2e 41 2e 41 76 65 72 69 | 6c 6c 2c 20 31 39 38 38 |.A.Averi|ll, 1988|
|00000040| 2e 0d 00 14 04 0d 00 1e | 26 f4 20 a9 20 52 69 63 |........|&. . Ric|
|00000050| 68 61 72 64 20 41 6e 74 | 68 6f 6e 79 20 41 76 65 |hard Ant|hony Ave|
|00000060| 72 69 6c 6c 2c 20 31 39 | 38 38 2e 0d 00 28 04 0d |rill, 19|88...(..|
|00000070| 00 32 04 0d 00 3c 13 dd | 20 f2 63 72 65 61 74 65 |.2...<..| .create|
|00000080| 5f 63 6c 6f 63 6b 0d 00 | 46 2a e7 20 63 6c 6f 63 |_clock..|F*. cloc|
|00000090| 6b 25 3e 30 20 8c 20 f2 | 73 79 73 5f 64 65 6c 65 |k%>0 . .|sys_dele|
|000000a0| 74 65 77 69 6e 64 6f 77 | 28 63 6c 6f 63 6b 25 29 |tewindow|(clock%)|
|000000b0| 0d 00 50 0b 63 6b 73 63 | 25 3d 34 0d 00 5a 66 63 |..P.cksc|%=4..Zfc|
|000000c0| 6c 6f 63 6b 25 3d a4 73 | 79 73 5f 64 65 66 69 6e |lock%=.s|ys_defin|
|000000d0| 65 77 69 6e 64 6f 77 28 | 22 43 6c 6f 63 6b 22 2c |ewindow(|"Clock",|
|000000e0| 26 34 33 2c 6d 65 6e 75 | 77 6f 72 6b 5f 66 67 63 |&43,menu|work_fgc|
|000000f0| 6f 6c 2c 38 2c 31 36 30 | 2a 63 6b 73 63 25 2c 31 |ol,8,160|*cksc%,1|
|00000100| 36 30 2a 63 6b 73 63 25 | 2c 30 2c 30 2c 31 36 30 |60*cksc%|,0,0,160|
|00000110| 2a 63 6b 73 63 25 2c 31 | 36 30 2a 63 6b 73 63 25 |*cksc%,1|60*cksc%|
|00000120| 29 0d 00 64 5e f2 73 79 | 73 5f 6f 70 65 6e 77 69 |)..d^.sy|s_openwi|
|00000130| 6e 64 6f 77 28 63 6c 6f | 63 6b 25 2c 37 30 34 2d |ndow(clo|ck%,704-|
|00000140| 28 38 30 2a 63 6b 73 63 | 25 29 2c 35 31 32 2d 28 |(80*cksc|%),512-(|
|00000150| 38 30 2a 63 6b 73 63 25 | 29 2c 37 30 34 2b 28 38 |80*cksc%|),704+(8|
|00000160| 30 2a 63 6b 73 63 25 29 | 2c 35 31 32 2b 28 38 30 |0*cksc%)|,512+(80|
|00000170| 2a 63 6b 73 63 25 29 2c | 30 2c 30 2c 2d 32 29 0d |*cksc%),|0,0,-2).|
|00000180| 00 6e 12 61 74 74 65 6e | 64 63 6c 6f 63 6b 25 3d |.n.atten|dclock%=|
|00000190| b9 0d 00 78 0d 64 69 76 | 31 32 3d 36 2f af 0d 00 |...x.div|12=6/...|
|000001a0| 82 0e 64 69 76 36 30 3d | 33 30 2f af 0d 00 8c 0d |..div60=|30/.....|
|000001b0| 75 70 64 61 74 65 25 3d | a3 0d 00 96 05 e1 0d 00 |update%=|........|
|000001c0| a0 04 0d 00 aa 13 dd 20 | f2 72 65 64 72 61 77 5f |....... |.redraw_|
|000001d0| 63 6c 6f 63 6b 0d 00 ab | 0c c8 95 20 6d 6f 72 65 |clock...|... more|
|000001e0| 25 0d 00 ac 17 c8 99 20 | 47 65 74 52 2c 30 2c 62 |%...... |GetR,0,b|
|000001f0| 20 b8 20 6d 6f 72 65 25 | 0d 00 ad 05 ce 0d 00 b4 | . more%|........|
|00000200| 0d 75 70 64 61 74 65 25 | 3d a3 0d 00 be 11 f2 75 |.update%|=......u|
|00000210| 70 64 61 74 65 5f 63 6c | 6f 63 6b 0d 00 c8 05 e1 |pdate_cl|ock.....|
|00000220| 0d 00 d2 04 0d 00 dc 13 | dd 20 f2 75 70 64 61 74 |........|. .updat|
|00000230| 65 5f 63 6c 6f 63 6b 0d | 00 e6 09 ea 20 63 65 25 |e_clock.|.... ce%|
|00000240| 0d 00 f0 10 63 65 25 3d | 63 6b 73 63 25 2a 38 30 |....ce%=|cksc%*80|
|00000250| 0d 01 04 15 63 6c 6f 63 | 6b 74 65 78 74 24 3d c2 |....cloc|ktext$=.|
|00000260| 91 24 2c 38 29 0d 01 0e | 36 f2 73 79 73 5f 75 70 |.$,8)...|6.sys_up|
|00000270| 64 61 74 65 77 69 6e 64 | 6f 77 28 63 6c 6f 63 6b |datewind|ow(clock|
|00000280| 25 2c 30 2c 2d 31 36 30 | 2a 63 6b 73 63 25 2c 31 |%,0,-160|*cksc%,1|
|00000290| 36 30 2a 63 6b 73 63 25 | 2c 30 29 0d 01 18 0e f2 |60*cksc%|,0).....|
|000002a0| 69 6e 66 6f 28 62 2b 34 | 29 0d 01 22 19 73 65 63 |info(b+4|)..".sec|
|000002b0| 3d bb 28 c2 63 6c 6f 63 | 6b 74 65 78 74 24 2c 32 |=.(.cloc|ktext$,2|
|000002c0| 29 29 0d 01 2c 24 6d 69 | 6e 3d bb 28 c1 63 6c 6f |))..,$mi|n=.(.clo|
|000002d0| 63 6b 74 65 78 74 24 2c | 34 2c 32 29 29 2b 28 73 |cktext$,|4,2))+(s|
|000002e0| 65 63 2f 36 30 29 0d 01 | 36 22 68 72 73 3d bb 28 |ec/60)..|6"hrs=.(|
|000002f0| c0 63 6c 6f 63 6b 74 65 | 78 74 24 2c 32 29 29 2b |.clockte|xt$,2))+|
|00000300| 28 6d 69 6e 2f 36 30 29 | 0d 01 40 16 e7 20 68 72 |(min/60)|..@.. hr|
|00000310| 73 3e 31 32 20 8c 20 68 | 72 73 2d 3d 31 32 0d 01 |s>12 . h|rs-=12..|
|00000320| 4a 13 68 78 3d b5 28 68 | 72 73 2f 64 69 76 31 32 |J.hx=.(h|rs/div12|
|00000330| 29 0d 01 54 13 68 79 3d | 9b 28 68 72 73 2f 64 69 |)..T.hy=|.(hrs/di|
|00000340| 76 31 32 29 0d 01 5e 13 | 6d 78 3d b5 28 6d 69 6e |v12)..^.|mx=.(min|
|00000350| 2f 64 69 76 36 30 29 0d | 01 68 13 6d 79 3d 9b 28 |/div60).|.h.my=.(|
|00000360| 6d 69 6e 2f 64 69 76 36 | 30 29 0d 01 72 13 73 78 |min/div6|0)..r.sx|
|00000370| 3d b5 28 73 65 63 2f 64 | 69 76 36 30 29 0d 01 7c |=.(sec/d|iv60)..||
|00000380| 13 73 79 3d 9b 28 73 65 | 63 2f 64 69 76 36 30 29 |.sy=.(se|c/div60)|
|00000390| 0d 01 86 04 0d 01 90 24 | 73 6c 78 25 3d 28 b5 28 |.......$|slx%=(.(|
|000003a0| 28 73 65 63 2d 31 35 29 | 2f 64 69 76 36 30 29 29 |(sec-15)|/div60))|
|000003b0| 2a 34 2a 63 6b 73 63 25 | 0d 01 9a 24 73 6c 79 25 |*4*cksc%|...$sly%|
|000003c0| 3d 28 9b 28 28 73 65 63 | 2d 31 35 29 2f 64 69 76 |=(.((sec|-15)/div|
|000003d0| 36 30 29 29 2a 34 2a 63 | 6b 73 63 25 0d 01 a4 24 |60))*4*c|ksc%...$|
|000003e0| 73 68 78 25 3d 28 b5 28 | 28 73 65 63 2b 31 35 29 |shx%=(.(|(sec+15)|
|000003f0| 2f 64 69 76 36 30 29 29 | 2a 34 2a 63 6b 73 63 25 |/div60))|*4*cksc%|
|00000400| 0d 01 ae 24 73 68 79 25 | 3d 28 9b 28 28 73 65 63 |...$shy%|=(.((sec|
|00000410| 2b 31 35 29 2f 64 69 76 | 36 30 29 29 2a 34 2a 63 |+15)/div|60))*4*c|
|00000420| 6b 73 63 25 0d 01 b8 04 | 0d 01 c2 24 6d 6c 78 25 |ksc%....|...$mlx%|
|00000430| 3d 28 b5 28 28 6d 69 6e | 2d 31 35 29 2f 64 69 76 |=(.((min|-15)/div|
|00000440| 36 30 29 29 2a 33 2a 63 | 6b 73 63 25 0d 01 cc 24 |60))*3*c|ksc%...$|
|00000450| 6d 6c 79 25 3d 28 9b 28 | 28 6d 69 6e 2d 31 35 29 |mly%=(.(|(min-15)|
|00000460| 2f 64 69 76 36 30 29 29 | 2a 33 2a 63 6b 73 63 25 |/div60))|*3*cksc%|
|00000470| 0d 01 d6 24 6d 68 78 25 | 3d 28 b5 28 28 6d 69 6e |...$mhx%|=(.((min|
|00000480| 2b 31 35 29 2f 64 69 76 | 36 30 29 29 2a 33 2a 63 |+15)/div|60))*3*c|
|00000490| 6b 73 63 25 0d 01 e0 24 | 6d 68 79 25 3d 28 9b 28 |ksc%...$|mhy%=(.(|
|000004a0| 28 6d 69 6e 2b 31 35 29 | 2f 64 69 76 36 30 29 29 |(min+15)|/div60))|
|000004b0| 2a 33 2a 63 6b 73 63 25 | 0d 01 ea 04 0d 01 f4 25 |*3*cksc%|.......%|
|000004c0| 68 6c 78 25 3d 28 b5 28 | 28 68 72 73 2d 33 29 2f |hlx%=(.(|(hrs-3)/|
|000004d0| 64 69 76 31 32 29 29 2a | 32 2e 35 2a 63 6b 73 63 |div12))*|2.5*cksc|
|000004e0| 25 0d 01 fe 25 68 6c 79 | 25 3d 28 9b 28 28 68 72 |%...%hly|%=(.((hr|
|000004f0| 73 2d 33 29 2f 64 69 76 | 31 32 29 29 2a 32 2e 35 |s-3)/div|12))*2.5|
|00000500| 2a 63 6b 73 63 25 0d 02 | 08 25 68 68 78 25 3d 28 |*cksc%..|.%hhx%=(|
|00000510| b5 28 28 68 72 73 2b 33 | 29 2f 64 69 76 31 32 29 |.((hrs+3|)/div12)|
|00000520| 29 2a 32 2e 35 2a 63 6b | 73 63 25 0d 02 12 25 68 |)*2.5*ck|sc%...%h|
|00000530| 68 79 25 3d 28 9b 28 28 | 68 72 73 2b 33 29 2f 64 |hy%=(.((|hrs+3)/d|
|00000540| 69 76 31 32 29 29 2a 32 | 2e 35 2a 63 6b 73 63 25 |iv12))*2|.5*cksc%|
|00000550| 0d 02 1c 04 0d 02 26 14 | 61 68 78 25 3d 68 78 2a |......&.|ahx%=hx*|
|00000560| 31 30 2a 63 6b 73 63 25 | 0d 02 30 14 61 68 79 25 |10*cksc%|..0.ahy%|
|00000570| 3d 68 79 2a 31 30 2a 63 | 6b 73 63 25 0d 02 3a 14 |=hy*10*c|ksc%..:.|
|00000580| 61 6d 78 25 3d 6d 78 2a | 31 35 2a 63 6b 73 63 25 |amx%=mx*|15*cksc%|
|00000590| 0d 02 44 14 61 6d 79 25 | 3d 6d 79 2a 31 35 2a 63 |..D.amy%|=my*15*c|
|000005a0| 6b 73 63 25 0d 02 4e 14 | 61 73 78 25 3d 73 78 2a |ksc%..N.|asx%=sx*|
|000005b0| 32 30 2a 63 6b 73 63 25 | 0d 02 58 14 61 73 79 25 |20*cksc%|..X.asy%|
|000005c0| 3d 73 79 2a 32 30 2a 63 | 6b 73 63 25 0d 02 62 04 |=sy*20*c|ksc%..b.|
|000005d0| 0d 02 6c 15 68 78 25 3d | 68 78 2a 33 37 2e 35 2a |..l.hx%=|hx*37.5*|
|000005e0| 63 6b 73 63 25 0d 02 76 | 15 68 79 25 3d 68 79 2a |cksc%..v|.hy%=hy*|
|000005f0| 33 37 2e 35 2a 63 6b 73 | 63 25 0d 02 80 13 6d 78 |37.5*cks|c%....mx|
|00000600| 25 3d 6d 78 2a 35 35 2a | 63 6b 73 63 25 0d 02 8a |%=mx*55*|cksc%...|
|00000610| 13 6d 79 25 3d 6d 79 2a | 35 35 2a 63 6b 73 63 25 |.my%=my*|55*cksc%|
|00000620| 0d 02 94 13 73 78 25 3d | 73 78 2a 36 35 2a 63 6b |....sx%=|sx*65*ck|
|00000630| 73 63 25 0d 02 9e 13 73 | 79 25 3d 73 79 2a 36 35 |sc%....s|y%=sy*65|
|00000640| 2a 63 6b 73 63 25 0d 02 | a8 04 0d 02 b2 1b 63 78 |*cksc%..|......cx|
|00000650| 25 3d 62 78 25 2b 63 65 | 25 3a 63 79 25 3d 62 79 |%=bx%+ce|%:cy%=by|
|00000660| 25 2d 63 65 25 0d 02 bc | 0c c8 95 20 6d 6f 72 65 |%-ce%...|... more|
|00000670| 25 0d 02 c6 0e c8 91 20 | 63 78 25 2c 63 79 25 0d |%...... |cx%,cy%.|
|00000680| 02 d0 07 e6 20 30 0d 02 | da 04 0d 02 e4 16 c8 8f |.... 0..|........|
|00000690| 20 c8 90 20 30 2c 30 2c | 37 30 2a 63 6b 73 63 25 | .. 0,0,|70*cksc%|
|000006a0| 0d 02 ee 08 e6 20 31 35 | 0d 02 f8 11 ec 20 2d 61 |..... 15|..... -a|
|000006b0| 6d 78 25 2c 2d 61 6d 79 | 25 0d 03 02 0f ec 20 6d |mx%,-amy|%..... m|
|000006c0| 6c 78 25 2c 6d 6c 79 25 | 0d 03 0c 06 c8 96 0d 03 |lx%,mly%|........|
|000006d0| 16 12 f0 20 38 35 2c 6d | 68 78 25 2c 6d 68 79 25 |... 85,m|hx%,mhy%|
|000006e0| 0d 03 20 10 f0 20 38 35 | 2c 6d 78 25 2c 6d 79 25 |.. .. 85|,mx%,my%|
|000006f0| 0d 03 2a 0a e6 20 33 32 | 2c 32 0d 03 34 11 ec 20 |..*.. 32|,2..4.. |
|00000700| 2d 61 73 78 25 2c 2d 61 | 73 79 25 0d 03 3e 0f ec |-asx%,-a|sy%..>..|
|00000710| 20 73 6c 78 25 2c 73 6c | 79 25 0d 03 48 12 f0 20 | slx%,sl|y%..H.. |
|00000720| 38 35 2c 73 68 78 25 2c | 73 68 79 25 0d 03 52 10 |85,shx%,|shy%..R.|
|00000730| f0 20 38 35 2c 73 78 25 | 2c 73 79 25 0d 03 5c 08 |. 85,sx%|,sy%..\.|
|00000740| e6 20 31 32 0d 03 66 11 | ec 20 2d 61 68 78 25 2c |. 12..f.|. -ahx%,|
|00000750| 2d 61 68 79 25 0d 03 70 | 0f ec 20 68 6c 78 25 2c |-ahy%..p|.. hlx%,|
|00000760| 68 6c 79 25 0d 03 7a 12 | f0 20 38 35 2c 68 68 78 |hly%..z.|. 85,hhx|
|00000770| 25 2c 68 68 79 25 0d 03 | 84 10 f0 20 38 35 2c 68 |%,hhy%..|... 85,h|
|00000780| 78 25 2c 68 79 25 0d 03 | 8e 0a c8 91 20 30 2c 30 |x%,hy%..|.... 0,0|
|00000790| 0d 03 98 17 c8 99 20 47 | 65 74 52 2c 30 2c 62 20 |...... G|etR,0,b |
|000007a0| b8 20 6d 6f 72 65 25 0d | 03 a2 05 ce 0d 03 b6 05 |. more%.|........|
|000007b0| e1 0d ff                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+